home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
326-350
/
disk_339
/
pcq
/
include
/
screen.i
< prev
next >
Wrap
Text File
|
1992-05-06
|
894b
|
50 lines
{
Screen.i (of PCQ Pascal)
This file just defines the screen record, but requires so
many other include files that I seperated it from Intuition.i
}
{$I "Include/Graphics.i"}
{$I "Include/Layers.i"}
{$I "Include/View.i"}
{$I "Include/Intuition.i"}
{$I "Include/Text.i"}
Type
Screen = Record
NextScreen : ^Screen;
FirstWindow : WindowPtr;
LeftEdge,
TopEdge,
Width,
Height : Short;
MouseY,
MouseX : Short;
Flags : Short;
Title : String;
DefaultTitle : String;
BarHeight,
BarVBorder,
BarHBorder,
MenuVBorder,
MenuHBorder : Byte;
WBorTop,
WBorLeft,
WBorRight,
WBorBottom : Byte;
Font : TextAttrPtr;
SViewPort : ViewPort;
SRastPort : RastPort;
SBitMap : BitMap;
LayerInfo : Layer_Info;
FirstGadget : Address;
DetailPen,
BlockPen : Byte;
SaveColor0 : Short;
BarLayer : Address;
ExtData : Address;
UserData : Address;
end;
ScreenPtr = ^Screen;